home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / PEEKPRNT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  3.8 KB  |  104 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '*****************  MEMORY PEEKER/HEX CONVERTER IBM  ***********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN               R.A.M/R.O.M PEEK ROUTINE & HEX$ CONVERTER                 OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    This dual purpose program will peek into designated RAM and ROM      OPEN
  7. 24  'OPEN areas and return the decimal value at the location. You may specify     OPEN
  8. 26  'OPEN the range in either HEX$ or DECIMAL.  The range is entered as two #'s   OPEN
  9. 28  'OPEN separated by a comma. I.E:, &H34,&H49 or 234,400.  The appropriate      OPEN
  10. 30  'OPEN memory values will be displayed on the screen in an array.              OPEN
  11. 31  'OPEN    The HEX$/DEC converter also allows input in either HEX$ or DECIMAL.  OPEN
  12. 32  'OPEN The range requested will be printed on the screen and then routed to    OPEN
  13. 33  'OPEN the printer. Certain HEX$ ranges can cause the printer to do strange    OPEN
  14. 34  'OPEN things.  If this happens during the printout, turn the printer OFF/ON   OPEN
  15. 36  'OPEN and the situation will be corrected.  This program may be used in whole OPEN
  16. 37  'OPEN or in part without attribution. (c) G I N A C O -- 1983 Ver 5.2/160/320 OPEN
  17. 38  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  18. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  19. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  20. 60  CLS:KEY OFF
  21. 70   SCREEN 0,0,0
  22. 80    WIDTH 80
  23. 90     CLEAR
  24. 100      FOR I! = 1 TO 10
  25. 110         KEY I!,""
  26. 120        NEXT
  27. 130  CLEAR
  28. 140   LPRINT CHR$(27); CHR$(64);
  29. 150    PRINT
  30. 160     PRINT
  31. 170      LOCATE 12,20
  32. 180       PRINT "FOR PEEK-POKE DISPLAY AND PRINTOUT <ENTER> 1"
  33. 190        LOCATE 14,20
  34. 200         PRINT "FOR DEC/HEX CONVERSION & PRINTOUT <ENTER> 2"
  35. 210          LOCATE 17,40
  36. 220           INPUT X!
  37. 230            ON X! GOTO 240,530
  38. 240  CLS
  39. 250   WIDTH "LPT1:",80
  40. 260    LOCATE 10,21
  41. 270     PRINT "INDICATE RANGE OF PEEK-READ AND PRINTOUT"
  42. 280      LOCATE 12,24
  43. 290       PRINT "ENTER RANGE IN DECIMAL OR HEX FORM"
  44. 300        LOCATE 14,28
  45. 310         PRINT "i.e;, 300,310  or  &H20,&H30"
  46. 320          LOCATE 16,21
  47. 330           PRINT "THE PRINTOUT WILL SHOW THE DECIMAL VALUE"
  48. 340  LOCATE 17,18
  49. 350   PRINT "OF THE DESIGNATED (DEC OR HEX) MEMORY LOCATION"
  50. 360    LOCATE 19,40
  51. 370     INPUT A!,B!
  52. 380      CLS
  53. 390       FOR I! = A! TO B!
  54. 400          PRINT I!;" "; PEEK(I!),
  55. 410         NEXT
  56. 420          FOR I! = A! TO B!
  57. 430             LPRINT I!;" "; PEEK(I!),
  58. 440            NEXT
  59. 450             LOCATE 24,2
  60. 460              PRINT "<ENTER 1> FOR ANOTHER PEEK DISPLAY";
  61. 470  LOCATE 24,44
  62. 480   PRINT "<ENTER 2> FOR A HEX/DEC CONVERSION";
  63. 490  LPRINT CHR$(13)
  64. 500   INPUT Y!
  65. 510    ON Y! GOTO 240,530
  66. 520  CLS
  67. 530  REM ********** DECIMAL/HEXIDECIMAL CONVERSION -- TWO WAY *****************
  68. 540  CLS
  69. 550   LOCATE 6,20
  70. 560    PRINT "INDICATE RANGE OF DESIRED HEX$/DEC DISPLAY"
  71. 570     LOCATE 8,20
  72. 580      PRINT "YOU MAY ENTER RANGE IN DECIMAL OR HEX FORM"
  73. 590       LOCATE 10,28
  74. 600        PRINT "i.e;, 300,310  or  &H20,&H30"
  75. 610         LOCATE 12,23
  76. 620          PRINT "THE PRINTOUT SHOWS THE DECIMAL VALUES"
  77. 630  LOCATE 13,30
  78. 640   PRINT "OF THE RANGE REQUESTED."
  79. 650    LOCATE 15,26
  80. 660     PRINT "TURN PRINTER ON AND SET PAPER"
  81. 670      LOCATE 17,31
  82. 680       PRINT "DEC/HEX NUMBER RANGE "
  83. 690        LOCATE 19,40
  84. 700         INPUT A!,B!
  85. 710          CLS
  86. 720           FOR X! = A! TO B!
  87. 730              A$ = HEX$(X!)
  88. 740               PRINT TAB( 25)"DEC    "X!"  IS    "A$"   HEX$"
  89. 750              NEXT
  90. 760  FOR X! = A! TO B!
  91. 770     A$ = HEX$(X!)
  92. 780      LPRINT TAB( 10)"DEC    "X!"  IS    "A$"   HEX$"
  93. 790     NEXT
  94. 800      LOCATE 24,2
  95. 810       PRINT "<ENTER 1> FOR ANOTHER CONVERSION";
  96. 820        LOCATE 24,42
  97. 830         PRINT "<ENTER 2> FOR PEEK/PRINT DISPLAY ";
  98. 840          INPUT Y!
  99. 850           ON Y! GOTO 530,240
  100. 860  CLS
  101. 870   END
  102. 65000  REM ***********************    SAVE ROUTINE    **************************
  103. 65100  SAVE"B:PEEKPRNT.BAS"
  104.